Amiga Tools 2/Amiga Tools 2.iso/amiga-magazin-pd/12-94-4.1/install real 3d demo

Text File | 1995-03-09 | 6KB | 236 lines

; Real 3D Demo Installer Script V 2.49
; ------------------------------------

; Real 3D Volumes
; ---------------

(set r3disk1 "Amiga-Magazin-PD:")
(set r3disk2 "Amiga-Magazin-PD2:")
(set r3drawer "Real3DV2")


; Program used for compression/decompression
; ------------------------------------------

(set r3comp "lharc")
(set r3pfix ".lzh")


; Procedure used for uncompression
; --------------------------------

(procedure r3uncomp
    (set r3lha ("ram:%s -m -x x %s" r3comp r3disk))
    (set r3ci (cat r3curritem r3pfix))
    (working "Installing " r3curritem)
    (if (<> (run (cat r3lha r3ci)) 0)
        (message "Error while decompressing " r3ci)
    )
)

; Ask Disk procedure
; ------------------

(procedure r3askdisk
    (askdisk
        (prompt "Please insert " r3disk " in any drive...")
        (dest (substr r3disk 0 (- (strlen r3disk) 1)))
        (help @askdisk-help)
    )
)


; Fetch System Configuration
; --------------------------

; (set r3cpu        (database "cpu"))
; (set r3video      (database "vblank"))
(set r3version    (/ (getversion) 65536))


; Must be 68020/30/40 machine
; ---------------------------

(if (OR (= r3cpu "68000") (= r3cpu "68010"))
    (if (= 0
        (askbool
            (prompt "Real 3D V2 can be run only on 68020/30/40 based systems\nDo you really want to install Real3D to your " r3cpu " based system?")
            (help "You can use many of the Real 3D utilities in all Amiga models")
            (default 1)
        ))
        (abort "Real 3D V2 Cannot be run on\n" r3cpu " based machines")
    )
)


; Ask the destination directory
; -----------------------------

(set @default-dest "Work:")
(set version (/ (getversion) 65536))
(set r3dest
    (askdir (prompt "Select the location to install the Real 3D directory")
        (default @default-dest)
        (help "Choose a destination partition or directory to contain "
              "Real 3D. A directory called 'Real3DV2' will be created "
              "and program files copied in the location you choose."
        )
    )
)

(set r3dest1 (tackon r3dest r3drawer))
(set @default-dest r3dest1)
(message "Real 3D will be installed in " r3dest1 )


; Copy r3comp to ram:
; -------------------

(set error (trap 4
    (copyfiles
        (source (tackon r3disk1 r3comp)
        (dest   "ram:")))
    )
)
(if (> error 0) (message ("Dos Error %ld detected" @ioerr)))


; Create Real 3D directory
; ------------------------

(set error (trap 4 (makedir r3dest1 (infos))))
(if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
(set @execute-dir r3dest1)


; Ask items to install
; --------------------

(set r3items
    (askoptions
        (prompt  "Choose parts you would like to install")
        (choices "Real 3D V.2.49"
                 "Support material"
                 "Online help"
         "Demos"
        )
        (help "Real 3D V.2.49 - \nInstalls Real 3D demo version\n\n"

            "Support material - \nInstalls example objects and projects\n\n"

            "Online help -\nInstalls Commodore shared library 'AmigaGuide.library' "
            "to LIBS: drawer, 'AmigaGuide' hypertext browser and Real 3D "
            "help documents.\n\n"

        "Demos -\nIFF and JPEG images and delta animations "
            "created with Real 3D\n\n"
        )
    )
)


; Install Disk 1
; --------------

(set r3disk r3disk1) (r3askdisk)

(if (IN r3items 2) ; Online help
(
    (copylib
        (source (cat r3disk1, "sysfiles/amigaguide.library"))
        (dest "libs:")
    )
    (copylib
    (source (cat r3disk1, "sysfiles/amigaguide"))
    (dest "sys:utilities")
    )
))

(if (> r3version 37)
(   (copylib
            (source (cat r3disk "sysfiles/gradientslider.gadget"))
            (dest "sys:classes/gadgets")
    )
    (copylib
            (source (cat r3disk "sysfiles/colorwheel.gadget"))
            (dest "sys:classes/gadgets")
    )
))

(if (IN r3items 0) ; Real 3D V2
(   (set r3curritem "Real") (r3uncomp)
    (set r3curritem "libs") (r3uncomp)
    (set r3curritem "s") (r3uncomp)
    (set r3curritem "RPL") (r3uncomp)
))

(if (IN r3items 3) ; demos
    (   (set r3curritem "DeltaPlay") (r3uncomp)
        (set r3curritem "Display") (r3uncomp)
    )
)



; Install Disk2
; -------------

(set r3disk r3disk2) (r3askdisk)

(if (IN r3items 1) ; support material
(   (set r3curritem "projects") (r3uncomp)
    (set r3curritem "bumpmaps") (r3uncomp)
    (set r3curritem "textures") (r3uncomp)
    (set r3curritem "environments") (r3uncomp)
    (set r3curritem "macros") (r3uncomp)
    (set r3curritem "materials") (r3uncomp)
    (set r3curritem "objects")  (r3uncomp)
))

(if (IN r3items 2)
(   (set r3curritem "help") (r3uncomp)
))

(if (IN r3items 3) ; demos
    (
        (set r3curritem "Deltas") (r3uncomp)
        (set r3curritem "Images") (r3uncomp)
    )
)

(delete ("RAM:%s" r3comp))

(set error 1)
(until (= error 0)
   (
      (set error (trap 4
         (startup "Real3D_V2.4"
            (prompt ("The assign R3D2 has been created"))
            (command ("assign R3D2: %s" r3dest1))
            (help   "Real 3D uses one logical assign R3D2 to find its files."
                    "Installer will add this assign to your user-startup script\n"
            )
         )
      ))
      (if (> error 0)
         (if (or (= @ioerr 222) (or (= @ioerr 223) (= @ioerr 224)))
            (message "Startup file is write protected. Use protect "
                    "to write enable the file, and select Proceed" )
            ;else other type of error
            (
                (message "Non-Standard startup sequence detected. You must add "
                     "the following line by hand.\n\n"
                     "    assign R3D2: " r3dest1 "\n"
                )
                (set error 0)
            )
         )
      )
   )
)

(makeassign "R3D2" r3dest1)

(complete 100)